home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 001 / pibtscr4.arc / CMPSHP.SCR < prev    next >
Encoding:
Text File  |  1986-01-08  |  512 b   |  26 lines
  1. PARAM TT=XK
  2. PARAM TE=2
  3. PARAM MO=17
  4. CLEAR
  5. MESSAGE              "***** DIALING COMP U SHOP IBBS *****"
  6. DIAL "3"
  7. IF NOT CONNECTED
  8.    MESSAGE            "***** RE-DIALING COMP U SHOP IBBS *****"
  9.    HANGUP
  10.    REDIAL
  11. ENDIF
  12. CLEAR
  13. WAITSTRING "name ?"
  14. STEXT "     ;      |"
  15. WAITSTRING ">"
  16. STEXT "    |"
  17. WAITSTRING "Enter Your Choice ---->"
  18. STEXT "x|"
  19. WAITSTRING ")"
  20. STEXT "f|"
  21. WAITSTRING "ALL"
  22. STEXT "L|"
  23. IF CONNECTED
  24.    EXIT
  25. ENDIF
  26.